home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / logs / logbook / wazenter.prg < prev    next >
Text File  |  1990-05-04  |  3KB  |  113 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: WAZENTER.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 04/27/90     13:31
  9. *:
  10. *:      Called by: WAZ.PRG                       
  11. *:
  12. *:           Uses: &LOGBOOK.DBF   
  13. *:               : &WAZ.DBF       
  14. *:
  15. *:        Indexes: &LOGNDX
  16. *:
  17. *:      Documented 05/04/90 at 13:50                SNAP!  version 3.12f
  18. *:*********************************************************************
  19. * WAZENTER PUTS DATA IN WAZ DATABASE VERSION 851203
  20. * SAME AS OBLASTEN.PRG BUT FOR 40 ZONES
  21. * BY JOE KASSER G3ZCZ (c) 1985
  22.  
  23. IF FILE (logbook + '.DBF')
  24.    SELECT 1
  25.    USE &logbook  INDEX &logndx
  26.    
  27.    SELECT 2
  28.    USE &waz
  29.    
  30.    STORE .t. TO cflag
  31.    STORE 0 TO zonen
  32.    STORE ' ' TO df
  33.    STORE '         ' TO callcard
  34.    
  35.    DO WHILE cflag
  36.       CLEAR
  37.       @ 3,1 SAY ' '
  38.       ACCEPT 'Which Zone (0 to terminate) ? '  TO zonen
  39.       IF &zonen < wazm
  40.          IF &zonen = 0
  41.             STORE .F. TO cflag
  42.          ELSE
  43.             SELECT 2
  44.             * GO DIRECTLY TO RECORD
  45.             GOTO &zonen
  46.             @ 8,1 SAY ' '
  47.             IF dcall = ' '
  48.                ? 'Zone ',&zonen,' is not worked'
  49.             ELSE
  50.                DISP
  51.             ENDIF
  52.             @ 10,1 SAY 'Do you want to update the entry (Y/N) ? '
  53.             @ 10,40 GET df
  54.             READ
  55.             IF df = 'Y'
  56.                STORE '         ' TO  callcard
  57.                SELECT 1
  58.                @ 12,1 SAY 'What is the call ? '
  59.                @ 12,21 GET callcard
  60.                READ
  61.                FIND &callcard
  62.                @ 14,1 SAY ' '
  63.                IF (EOF() .or. BOF())
  64.                   ? callcard,' is not in log'
  65.                ELSE
  66.                   STORE .t. TO qflag
  67.                   DO WHILE CALL = callcard .and. qflag
  68.                      @ 20,1 SAY ' '
  69.                      DISP
  70.                      @ 22,2 SAY ' '
  71.                      ACCEPT 'This one (Y/N) ? ' TO df
  72.                      IF df = 'Y'
  73.                         STORE .F. TO qflag
  74.                      ENDIF
  75.                      SKIP
  76.                   ENDDO
  77.                   IF qflag
  78.                      * DON'T update entry
  79.                   ELSE
  80.                      SKIP -1
  81.                      STORE CALL TO CALL
  82.                      STORE DATE TO DATE
  83.                      STORE TIME TO TIME
  84.                      STORE band TO band
  85.                      STORE mode TO mode
  86.                      STORE qslrx TO qslrx
  87.                      SELECT 2
  88.                      REPLACE dcall WITH CALL
  89.                      REPLACE ddate WITH DATE
  90.                      REPLACE dtime WITH TIME
  91.                      REPLACE dband WITH band
  92.                      REPLACE dmode WITH mode
  93.                      REPLACE dstate WITH qslrx
  94.                   ENDIF
  95.                ENDIF
  96.             ENDIF
  97.          ENDIF
  98.       ELSE
  99.          ? 'ERROR, THERE ARE ONLY 40 ZONES'
  100.          WAIT
  101.       ENDIF
  102.    ENDDO
  103.    SELECT 1
  104.    USE
  105.    SELECT 2
  106.    USE
  107. ELSE
  108.    ? 'ERROR,',logbook,' IS NOT ON DEFAULT DRIVE'
  109. ENDIF
  110. RELEASE qflag, callcard, df, zonen, cflag, CALL, DATE, TIME, band, mode, qslrx
  111. RETURN
  112. *: EOF: WAZENTER.PRG
  113.